      /IF DEFINED(*CRTRPGMOD)
      /IF NOT DEFINED(THIS_IS_MAIN)
     H NOMAIN
      /ENDIF
      /ENDIF